﻿Imports System

Namespace System.Workflow.ComponentModel
    Friend Class PathErrorInfoEventArgs
        Inherits EventArgs
        ' Methods
        Public Sub New(ByVal info As SourceValueInfo, ByVal currentPath As String)
            If (currentPath Is Nothing) Then
                Throw New ArgumentNullException("currentPath")
            End If
            Me.info = info
            Me.currentPath = currentPath
        End Sub


        ' Fields
        Private currentPath As String
        Private info As SourceValueInfo
    End Class
End Namespace

